100 IFA=0THENA=1:LOAD"HYPER III .OBJ",8,1
105 INPUT"[147]IHRE TEXTEINGABE";A$
110 FORI=1TOLEN(A$)
115 POKE49511+I,ASC(MID$(A$,I,1))
120 NEXT
125 POKE49511+I,32:POKE49512+I,0
130 SYS49152